home *** CD-ROM | disk | FTP | other *** search
/ PC Home 48 / Fun Clicp Art 5000.iso / r / mbm24 / 00836_SU-fi bt txt.ls < prev    next >
Encoding:
Text File  |  1996-06-10  |  864 b   |  27 lines
  1. on mouseDown
  2.   global gNumSpr, g1erSprLoc, gBoutons
  3.   set gNumSpr to g1erSprLoc
  4.   gBoutons(appuie, gNumSpr)
  5. end
  6.  
  7. on mouseUp
  8.   global g1erSprLoc, gEtatEtud, gCodEnv, gBoutons, gOldBt, gNumSpr, gTextEnvL, gSurvolPrec
  9.   if gNumSpr = g1erSprLoc then
  10.     set monNumEnv to getPos(gCodEnv, gEtatEtud)
  11.     set monTxt to getAt(gTextEnvL, monNumEnv)
  12.     set the visible of sprite 3 to 0
  13.     set the visible of sprite 4 to 0
  14.     if word 1 of the name of cast the castNum of sprite gNumSpr = "BTGBQ2" then
  15.       set the text of cast "TXT ENV" to line 2 of monTxt
  16.       gBoutons(habille, g1erSprLoc, "BTGBQ1 0")
  17.     else
  18.       set the text of cast "TXT ENV" to line 1 of monTxt
  19.       gBoutons(habille, g1erSprLoc, "BTGBQ2 0")
  20.     end if
  21.     set the visible of sprite 3 to 1
  22.     set the visible of sprite 4 to 1
  23.   end if
  24.   gBoutons(relache, gNumSpr)
  25.   set gSurvolPrec to -1
  26. end
  27.